10 REM ******************************** 20 REM ** STAR-MISTRESSES V2.1 ** 30 REM ** BY ** 40 REM ** ANTHONY ROSE ** 50 REM ******************************** 60 DV=PEEK(186):IFDV<8THENDV=8 70 GOSUB3000:GOTO3040 80 REM --- RANDOM CHOICES --- 90 FORI=1TO16:CH$(I)="":NEXT 100 AN=(RND(1)*16+1):CH$(AN)=AN$(QT) 110 FORI=1TO16:IFCH$(I)<>""THEN160 120 RN=RND(1)*N%+1:IFAN$(RN)=AN$(QT)THEN120 130 FL=0:FORJ=1TOI:IFCH$(J)=AN$(RN)THENFL=1:J=I 140 NEXT:IFFLTHEN120 150 CH$(I)=AN$(RN) 160 NEXT:RETURN 170 REM --- GAME SCREEN --- 180 PRINT"[147]";:A$="%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%" 190 FORI=.TO23:PRINTA$:NEXT:PRINTA$"" 200 PRINT"[158] * * * * * STAR MISTRESSES * * * * * " 210 FORI=.TO1:PRINT"[150] ":NEXT 220 FORI=1TO8:PRINT:PRINTB0$B0$:NEXT 230 PRINT"[153] QUESTION# [159] POINT VALUE [154] SCORE " 240 PRINT"[153] 000 [159] 00000 [154] 00000 " 250 RETURN 260 REM --- PRINT QUESTION NUMBER --- 270 POKE214,22:PRINT 280 A$=STR$(QN):A$=RIGHT$(A$,LEN(A$)-1) 290 PRINTTAB(8-LEN(A$))"[153]"A$ 300 RETURN 310 REM --- PRINT POINT VALUE --- 320 POKE214,22:PRINT:A$=STR$(PV) 330 A$="000"+RIGHT$(A$,LEN(A$)-1) 340 PRINTTAB(17)"[159]"RIGHT$(A$,5) 350 RETURN 360 REM --- PRINT QUESTION --- 370 POKES+5,0:POKES+6,240:POKES+1,34:POKES,75:POKES+12,0 380 POKES+13,240:POKES+8,14:POKES+7,24 390 POKE214,2:PRINT:PRINT"[150]"; 400 A$=QT$(QT):FORI=1TOLEN(A$) 410 IFMID$(A$,I,1)="+"THENPRINT:PRINT"";:GOTO440 420 POKES+4,17:POKES+11,17:POKES+4,16:POKES+11,16 430 PRINTMID$(A$,I,1); 440 NEXT 450 PRINT"?":RETURN 460 REM --- PRINT CHOICES --- 470 POKE214,5:PRINT:FORI=1TO8 480 PRINTMID$(C$,I,1)""CH$(I)TAB(21)CH$(I+8) 490 PRINT:NEXT:RETURN 500 REM --- PRINT SCORE --- 510 POKE214,22:PRINT 520 A$=STR$(SC):A$=RIGHT$(A$,LEN(A$)-1) 530 PRINTTAB(35-LEN(A$))"[154]"A$ 540 RETURN 550 REM --- BONUS PROMPT --- 560 POKE214,9:PRINT"[129]" 570 PRINTTAB(12)" " 580 PRINTTAB(12)" BONUS IF YOU " 590 PRINTTAB(12)" CAN ANSWER THE " 600 PRINTTAB(12)" NEXT QUESTION! " 610 PRINTTAB(12)" " 620 FORI=10TO8STEP-1:R%=I:GOSUB980:NEXT 630 FORI=8TO10:R%=I:GOSUB980:NEXT 640 FORDE=1TO3000:NEXT 650 POKE214,9:PRINT 660 FORI=.TO2:PRINTTAB(12)" % ":PRINTTAB(12)"%%%%%%%%%%%%%%%%%" 670 NEXT:RETURN 680 REM --- CLEAR SCREEN LINES --- 690 POKE214,2:PRINT 700 FORI=.TO1:PRINT"[150] ":NEXT 710 FORI=1TO8:PRINT:PRINTB0$B0$:NEXT 720 RETURN 730 REM -- HIGHLIGHT CORRECT ANSWER -- 740 C%=1:R%=AN:IFR%>8THENR%=R%-8:C%=2 750 FORI=1TO2:GOSUB900:GOSUB980 760 FORDE=1TO100:NEXT:GOSUB880 770 FORDE=1TO100:NEXT:NEXT 780 GOSUB900:GOSUB980:RETURN 790 REM --- CLEAR SCREENS --- 800 FORI=0TO12:POKE781,I:SYS59903:POKE781,24-I:SYS59903:NEXT:RETURN 810 REM --- CLEAR TITLE SCREEN --- 820 POKE214,10:PRINT 830 FORI=.TO4:PRINTTAB(9)B0$:NEXT 840 FORDE=1TO1200:NEXT:RETURN 850 REM --- BOTTOM TO TOP --- 860 FORI=24TO.STEP-1:POKE781,I:SYS59903:NEXT:RETURN 870 REM --- HIGHLIGHT BAR OFF --- 880 PRINTTAB(T)"[145]"B0$:PRINTTAB(T)"[145]"CH$(A):RETURN 890 REM --- HIGHLIGHT BAR ON --- 900 POKE214,R%*2+3:PRINT 910 T=(C%-1)*19:A=(C%-1)*8+R% 920 PRINTTAB(T)MID$(C$,R%,1)B1$ 930 PRINTTAB(T)"[145]"CH$(A) 940 RETURN 950 REM --- CLEAR SID CHIP --- 960 FORI=.TO24:POKES+I,.:NEXT:POKES+24,15:RETURN 970 REM --- BEEP --- 980 POKES+6,200:POKES+1,R%*5+10 990 POKES+4,17:FORDE=1TO50:NEXT 1000 POKES+4,16:RETURN 1010 REM --- RASBERRY --- 1020 POKES+5,0:POKES+6,240 1030 FORI=1024TO768STEP-8 1040 POKES+1,I/256:POKES,IAND255 1050 POKES+4,33:NEXT:POKES+4,32 1060 RETURN 1070 REM --- CORRECT SOUND --- 1080 POKES+6,225:POKES+4,17 1090 FORI=1TO7:FORDE=1TO180STEP20 1100 POKES+1,DE:NEXT:NEXT 1110 POKES+4,0:RETURN 1120 REM --- MEET THE CHAMP --- 1130 POKES+5,41:POKES+6,48 1140 FORI=0TO16:POKES+4,17 1150 FORJ=1TOD(I)*2:F=F(I)+PEEK(S+27)/2 1160 POKES+0,FAND255:POKES+1,INT(F/256) 1170 NEXT:POKES+4,16:NEXT 1180 RETURN 1190 REM --- NEW HIGH SCORE --- 1200 FORI=1TO3:FORJ=1TO3 1210 POKES+5,62:POKES+6,48 1220 POKES+1,J*3+6:POKES,54 1230 POKES+4,33:FORDE=1TO108:NEXT 1240 POKES+4,32::FORDE=1TO10:NEXT 1250 NEXT:NEXT:RETURN 1260 REM --- BONUS 1000 --- 1270 POKES+6,240:POKES+4,17 1280 FORI=1TO14:FORDE=1TO185STEP10 1290 POKES+1,DE:NEXT:POKE53280,20-I:NEXT 1300 POKES+4,0:RETURN 1310 REM --- CURSOR --- 1320 F=(FAND7)+1:PRINTMID$(CR$,F,1)"[157]"; 1330 FORDE=1TO30:NEXT:RETURN 1340 REM --- CHECK DRIVE --- 1350 OPEN15,DV,15,"R0:"+F$+"="+F$:INPUT#15,ER:CLOSE15 1360 RETURN 1370 REM --- MAIN --- 1380 IFBN=2THENGOSUB560 1390 GOSUB270:GOSUB320:GOSUB90:GOSUB370 1400 GOSUB470:R%=1:C%=1:GOSUB900 1410 GETA$:IFA$<>""THEN1410 1420 J=PEEK(JY)AND15:GETA$ 1425 IFA$="Q"THENQT=QT+21-QN:GOTO2330 1430 IF(PEEK(JY)AND16)=.ORA$=CHR$(13)THEN1510 1440 IFJ=14ORA$="[145]"THENGOSUB880:R%=R%-1-(R%=1)*8:GOTO1490 1450 IFJ=13ORA$=""THENGOSUB880:R%=R%+1+(R%=8)*8:GOTO1490 1460 IFJ=11ORA$="[157]"THENGOSUB880:C%=C%-1-(C%=1)*2:GOTO1490 1470 IFJ=7ORA$=""THENGOSUB880:C%=C%+1+(C%=2)*2:GOTO1490 1480 GOTO1420 1490 GOSUB900:GOSUB980:GOTO1420 1500 REM --- CHECK ANSWER --- 1510 IFCH$(A)<>AN$(QT)THENPV=50:BN=0:GOSUB1020:GOSUB880:GOSUB740:GOTO1530 1520 GOSUB1080:SC=SC+PV:GOSUB510:PV=PV+50:BN=BN+1:IFBN=3THENBN=0:GOTO1570 1530 FORDE=1TO2500:NEXT:GOSUB690 1540 QT=QT+1:QN=QN+1:IFQN>20THEN2110 1550 GOTO1380 1560 REM --- BONUS ROCK --- 1570 FORDE=1TO2000:NEXT:GOSUB860 1580 POKE53265,PEEK(53265)OR64 1590 POKE53280,6:POKE53281,10:POKE53282,3:POKE53283,8:POKE53284,7 1600 POKES+24,15:POKES+1,30:POKES+6,200 1610 C%=1:R%=RND(1)*20+1 1620 PRINT"[147][144][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][194][207][206][213][211][160][210][207][204][204][160][160][160][160][160][160][160][160][160][160][160][160][160][160][157][148][160]" 1630 PRINT"[156][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][157][148][165]" 1640 PRINT"[165][165] [144]& 100 [146][156][165][157][148][165]" 1650 PRINT"[165][165] [144]& 150 [156][165][157][148][165]" 1660 PRINT"[165][165] [144]& 200 [146][156][165][157][148][165]" 1670 PRINT"[165][165] [144]& 250 [156][165][157][148][165]" 1680 PRINT"[165][165] [144]& 300 [146][156][165][157][148][165]" 1690 PRINT"[165][165] [144]& 350 [156][165][157][148][165]" 1700 PRINT"[165][165] [144]& 400 [146][156][165][157][148][165]" 1710 PRINT"[165][165] [144]& 450 [156][165][157][148][165]" 1720 PRINT"[165][165] [144]& 500 [146][156][165][157][148][165]" 1730 PRINT"[165][165] [144]& 750 [156][165][157][148][165]" 1740 PRINT"[165][165] [144]& 1000 [146][156][165][157][148][165]" 1750 PRINT"[165][165] [144]& 750 [156][165][157][148][165]" 1760 PRINT"[165][165] [144]& 500 [146][156][165][157][148][165]" 1770 PRINT"[165][165] [144]& 450 [156][165][157][148][165]" 1780 PRINT"[165][165] [144]& 400 [146][156][165][157][148][165]" 1790 PRINT"[165][165] [144]& 350 [156][165][157][148][165]" 1800 PRINT"[165][165] [144]& 300 [146][156][165][157][148][165]" 1810 PRINT"[165][165] [144]& 250 [156][165][157][148][165]" 1820 PRINT"[165][165] [144]& 200 [146][156][165][157][148][165]" 1830 PRINT"[165][165] [144]& 150 [156][165][157][148][165]" 1840 PRINT"[165][165] [144]& 100 [146][156][165][157][148][165]" 1850 PRINT"[165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][157][148][165]" 1860 PRINT"[144][160][160][160][160][160][160][160][160][160][208][210][197][211][211][160][211][208][193][195][197][194][193][210][160][212][207][160][210][207][195][203][160][160][160][160][160][160][160][160][157][148][160]" 1870 R%=R%+C%:IFR%<2ORR%>20THENC%=-C%:POKES+4,17:POKE53280,1 1880 FORDE=1TO20:NEXT:POKE53280,6:POKES+4,16 1890 GETA$:IFA$<>" "THEN1870 1900 SP$=" ":BL$="&":IFR%AND1THENSP$=" ":BL$="&" 1910 POKE214,R%:PRINT"" 1920 FORI=2TO31:PRINTTAB(I)BL$; 1930 POKES+1,I*2:POKES+4,17:FORDE=1TO40:NEXT:IFI<>31THENPRINT"[157]"SP$"[145]" 1940 NEXT:POKES+4,16:PRINT 1950 IFR%=11THENGOSUB1270 1960 FORDE=1TO2500:NEXT:GOSUB860 1970 POKE53281,.:POKE53280,. 1980 POKE53265,PEEK(53265)AND191 1990 GOSUB180:GOSUB270:GOSUB320:GOSUB510 2000 POKE214,10:PRINT:R%=R%-1 2010 FORI=1TO3:PRINTTAB(13)"[129] ";:IFR%=10THENPRINT" "; 2020 PRINT:NEXT:POKE214,11:PRINT 2030 PRINTTAB(14)"BONUS ="BN(R%) 2040 FORDE=1TO500:NEXT 2050 FORI=10TOBN(R%)STEP10 2060 POKES+1,I/10:POKES+4,33:SC=SC+10 2070 GOSUB510:POKES+4,0:NEXT 2080 GOSUB1080:FORDE=1TO1000:NEXT 2090 GOSUB650:GOTO1540 2100 REM --- GAME OVER --- 2110 IFSC<=HSTHEN2330 2120 REM --- A NEW CHAMP --- 2130 GOSUB860:GOSUB1200 2140 POKE214,6:PRINT 2150 PRINTTAB(12)"[150]CONGRATULATIONS!" 2160 PRINTTAB(9)"[158]YOU ARE THE NEW CHAMP!" 2170 PRINTTAB(10)"[156][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]" 2180 PRINTTAB(10)"[192] [192]" 2190 PRINTTAB(10)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]" 2200 PRINTTAB(12)"[153]ENTER YOUR NAME" 2210 PRINTTAB(11)"[129]THEN PRESS RETURN" 2220 REM --- INPUT NAME --- 2230 HS=SC:N$="":POKE214,11:PRINT 2240 PRINTTAB(12)"[166][157]"; 2250 GETA$:IFA$<>""THEN2250 2260 GETA$:IFA$=""THENGOSUB1320:GOTO2260 2270 IFA$=CHR$(20)ANDLEN(N$)THENN$=LEFT$(N$,LEN(N$)-1):PRINT" [157][157]";:GOTO2310 2280 IFA$=CHR$(13)ANDLEN(N$)THENPRINT" ":GOTO2320 2290 IFA$<>" "ANDA$<"A"ORA$>"Z"ORLEN(N$)>14THEN2260 2300 N$=N$+A$:PRINTA$; 2310 GOSUB1320:GOTO2260 2320 REM --- MEET THE MISTRESS --- 2330 POKE53265,PEEK(53265)AND239 2340 PRINT"[147][154][213][215] [213] [214][215] [213][214] [216] [215][213][215] [214][215] [215] [215][214][213] [216][157][148] " 2350 PRINT" IN ALL THE KNOWN GALAXIES THERE IS ONE" 2360 PRINT" WHOSE KNOWLEDGE OF THE STARS SURPASSES" 2370 PRINT" ALL OTHERS. AND FOR THIS REASON ONLY" 2380 PRINT"[154][213] SHE IS TRULY WORTHY OF THE TITLE [154][214][157][148][215]" 2390 PRINT" [159]STAR-MISTRESS...EXTRAORDINAIRE! [154][213]" 2400 PRINT"[216] [213][214] [216] [216] [214] [214] [213] [215][216]" 2410 PRINT" [158][190][154] [216] [215] [213] [213] [150][160][161][162][163][154] [214] [213] [213] [153][188] [154][214][157][148] " 2420 PRINT" [214] [214] [129][183][184] [150][164][165][166][167][168][154] [213] [214][213] [216]" 2430 PRINT" [213] [213] [215] [129][185][186] [154][215] [150][169][170][171][172][173] [154][216] [213][214] [215]" 2440 PRINT"[214] [216] [215] [213] [216] [150][193][194][195][196][197][146][154] [213] [216][189][154] [213][157][148] " 2450 PRINT" [191][154] [216] [214][216] [150][198][199][200][201][202][203][146][154] [213] [215] [214]" 2460 PRINT"[213] [213] [214] [214] [214] [150][204][205][206][207][208][209][210][146][154] [214] [214] [214]" 2470 PRINT" [216] [215] [150][211][212][213][214][215][216][146][154] [213] [216] [213][216]" 2480 PRINT" [214] [215] [213] [214] [215][216][150][217][218][219][220][221][146][154] [214] [216] [213][157][148] " 2490 PRINT"[215] [213] [150][255][223][160][161][162][163][146][154] [213] [215] [214]" 2500 PRINT" [215][216] [214] [214] [215] [214] [150][164][165][166][167][168][146][154] [213] [216][215][157][148] " 2510 PRINT" [174][175][176][154] [213] [150][169][170][171][172][146][154] [215] [216] [214] [154][213]" 2520 PRINT" [214] [214] [177][178][179][154] [215] [214] [150][173][174][175][176][177][146][154] [213][214] [156][187][154] [214] [216]" 2530 PRINT" [214] [180][181][182][154] [215] [215] [150][178][179][146][154][215][150][180][181][146][154] [213] [213][216][157][148][215]" 2540 PRINT"[213] [215][216] [213] [213] [216] [150][182][183][184][185][186][187][146][154] [216] [215] [213] " 2550 PRINT" [214] [216][214] [215] [150][188][189][146][154][213][150][190][191][146][154] [213][214] [215] " 2560 PRINT" [214] [215] [214] [216] [216] [216] [216] [216] [214][157][148] " 2570 PRINT" [216][215] [216] [215] [159]SAVE SCORE? (Y[159]) OR (N[159])[154] [214] [215][213] [214]" 2580 PRINT"[214] [216] [214][216][213] [215] [214][216] [215] [213][216] [214][213][215] [216][214][215] [213][214][157][148] " 2590 POKE214,13-LEN(N$)/2:PRINT:PRINTTAB(30-LEN(N$)/2)"[158]"; 2600 IFLEN(N$)AND1THENPRINT""; 2610 FORI=1TOLEN(N$):PRINTMID$(N$,I,1)"";:NEXT 2620 A$=STR$(HS):A$=RIGHT$(A$,LEN(A$)-1) 2630 POKE214,12-LEN(A$)/2:PRINT:PRINTTAB(32-LEN(A$)/2)""; 2640 IFLEN(A$)AND1THENPRINT""; 2650 FORI=1TOLEN(A$):PRINTMID$(A$,I,1)"";:NEXT 2660 GOSUB1130:POKE53265,PEEK(53265)OR16 2670 GETA$:IFA$="N"THEN2770 2680 IFA$<>"Y"THEN2670 2690 REM --- SAVE SCORES --- 2700 POKE214,22:PRINT 2710 PRINTTAB(9)"[159] [192][146] SAVING SCORE [192][146] " 2720 OPEN15,DV,15,"S0:MISTRESS.HIGH":CLOSE15 2730 OPEN8,DV,8,"MISTRESS.HIGH,P,W" 2740 PRINT#8,N$:PRINT#8,HS 2750 CLOSE8 2760 REM --- ANOTHER GAME --- 2770 POKE214,22:PRINT 2780 PRINTTAB(9)"[159]PLAY AGAIN? (Y[159]) OR (N[159])" 2790 GETA$:IFA$<>""THEN2790 2800 GETA$:IFA$="N"THEN2870 2810 IFA$<>"Y"THEN2800 2820 REM --- RESET VARIABLES --- 2830 SC=0:BN=0:PV=50:QN=1 2840 IFQT>N%THENQT=1:GOSUB3660 2850 GOSUB180:GOTO1380 2860 REM --- ASTA LAVISTA BABY --- 2870 F$="HELLO CONNECT":GOSUB1350 2880 POKE56578,PEEK(56578)OR3 2890 POKE56576,(PEEK(56576)AND252)OR3 2900 POKE53272,21:POKE648,4 2910 IFER=63THEN2950 2920 POKE53281,6:POKE53280,14:PRINT"[147][154]" 2930 END 2940 REM --- RETURN TO LOADSTAR --- 2950 A$="HELLO CONNECT":Q$=CHR$(34) 2960 PRINT"[147][144]LOAD"Q$A$Q$","DV 2970 PRINT:PRINT:PRINT:PRINT:PRINT"RUN" 2980 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END 2990 REM --- SET UP VIDEO --- 3000 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252) 3010 POKE53272,29:POKE648,196 3020 POKE53281,0:POKE53280,0:PRINT"[147]" 3030 RETURN 3040 REM --- INITIALIZE --- 3050 DIMA,F,I,J,T,R%,C%,RN,AN,PV,SC,HS,BN,DE,ER,FL,A$,F$,N$,BL$,SP$ 3060 N%=200:JY=56320:S=54272:PV=50:QN=1:QT=1:RN=RND(-TI) 3070 C$="[159][153][158][129][150]":CR$=" [\]^]\[" 3080 B0$=" ":B1$=" " 3090 F$="MISTRESS.HIGH":GOSUB1350 3100 IFER<>63THEN3130 3110 OPEN8,DV,8,"MISTRESS.HIGH" 3120 INPUT#8,N$:INPUT#8,HS:CLOSE8 3130 DIMQT$(N%),AN$(N%),CH$(16),F(16),D(16),BN(20),T$(24) 3140 FORI=1TON%:READQT$(I):NEXT 3150 FORI=1TON%:READAN$(I):NEXT 3160 FORI=.TO16:READF(I),D(I):NEXT 3170 FORI=.TO20:READBN(I):NEXT 3180 FORI=.TO24:READT$(I):NEXT 3190 GOSUB3660:GOSUB960 3200 REM --- TITLE SCREEN --- 3210 PRINT"[147]":POKE214,11:PRINT 3220 PRINT"[129]^[149]^ ^[129]=#>[157][148]#" 3230 FORI=1TO12 3240 POKE214,12+I:SYS58732:PRINTT$(12+I) 3250 POKE214,12-I:SYS58732:PRINTT$(12-I) 3260 NEXT:FORDE=1TO1000:NEXT 3270 POKE214,12:PRINT"" 3280 PRINTTAB(10)"LOADSTAR PRESENTS" 3290 FORDE=1TO2500:NEXT:GOSUB820 3300 POKE214,10:PRINT 3310 PRINTTAB(18)"A" 3320 PRINTTAB(10)"MOVIE STAR TRIVIA" 3330 PRINTTAB(13)"GAME SEQUEL" 3340 FORDE=1TO3000:NEXT:GOSUB820 3350 POKE214,12:PRINT 3360 PRINTTAB(11)"BY ANTHONY ROSE[154]" 3370 FORDE=1TO2500:NEXT:GOSUB820 3380 A$="[213][214][214][215][215][216]" 3390 FORI=1TO170 3400 POKE214,RND(1)*17+4:PRINT 3410 PRINTTAB(RND(1)*33+2)MID$(A$,RND(1)*6+1,1) 3420 NEXT 3430 POKE214,5:PRINT"[158]" 3440 PRINT"[195][196][199][206][200][195][196][206][196][195][206][196][206][195][196][199][206][200][206][196][199][200][195][196][195][196][199][200][195][196]" 3450 PRINT"[193][207][193][193][193][193][193][193][193][193][193][193][207][193][193][193][193][193][207][193][207][193][193][207]" 3460 PRINT"[197][196][193][203][204][203][209][193][193][193][193][197][196][193][203][209][203][210][197][196][197][196][203][210][197][196]" 3470 PRINT"[208][193][193][193][193][193][193][193][193][193][193][208][193][193][193][193][193][208][193][208][193][193][208][193]" 3480 PRINT"[197][198][207][207][207][207][207][207][207][207][205][197][198][207][207][207][201][202][197][198][197][198][201][202][197][198]" 3490 FORDE=1TO1500:NEXT:PRINT 3500 PRINTTAB(14)"[199][210][199][196][195][196][195][206][196]" 3510 PRINTTAB(14)"[203][210][203][209][193][193][193][193][193]" 3520 PRINTTAB(14)"[207][207][207][197][198][207][207][207]" 3530 FORDE=1TO1500:NEXT:PRINT 3540 PRINT"[208][208][195][194][196][208][208][218][255][223][219][208][208][195][194][196][195][194][196][199][194][196]" 3550 PRINT"[193][193][193][193][193][193][220][217][221][193][193][193][193][193][193][193][193]" 3560 PRINT"[203][194][204][193][193][193][193][193][193][223][255][193][193][193][193][193][193][193]" 3570 PRINT"[193][193][193][193][193][193][193][193][223][221][220][255][193][193][193][193][193][193][193]" 3580 PRINT"[207][207][197][194][198][201][194][210][201][194][210][207][201][221][220][202][197][194][198][197][194][198][201][194][198]" 3590 FORDE=1TO1500:NEXT 3600 PRINTTAB(6)"[149]NEED DIRECTIONS? (Y) OR (N)" 3610 GETA$:IFA$="N"THENGOSUB860:GOTO3640 3620 IFA$<>"Y"THEN3610 3630 GOSUB860:GOSUB7060 3640 GOSUB180:GOTO1380 3650 REM --- MIX QUESTIONS --- 3660 PRINT"[147]":POKE214,11:PRINT 3670 PRINTTAB(16)"[150]WORKING..." 3680 FORI=1TON%:RN=RND(1)*N%+1 3690 A$=QT$(I):F$=AN$(I):QT$(I)=QT$(RN):AN$(I)=AN$(RN):QT$(RN)=A$:AN$(RN)=F$ 3700 NEXT:RETURN 3710 REM --- QUESTIONS --- 3720 DATAWHO PLAYED PHOTOGRAPHER VICKI VALE+IN $BATMAN$ 3730 DATAWHO PORTRAYED CATWOMAN IN THE 1966+MOVIE $BATMAN$ 3740 DATAWHO PLAYED A FEMALE MEDICAL STUDENT+IN $FLATLINERS$ 3750 DATAWHO WAS A WOMAN CAUGHT IN A MAZE IN+$HELLBOUND@ HELLRAISER II$ 3760 DATAWHO PLAYS THE MAN OF STEEL'S MOTHER+IN $SUPERMAN$ 3770 DATAWHO WAS A PRINCESS IN THE ARTHURIAN+SCI-FI MOVIE $KRULL$ 3780 DATAWHO PLAYED A DAMSEL IN DISTRESS IN+$QUEST FOR THE MIGHTY SWORD$ 3790 DATAWHO PLAYED THE LITTLE GIRL NEWT IN+$ALIENS$ 3800 DATAWACKY SPACE RAYS MAKE HER QUITE BIG+IN $ATTACK OF THE 50-FOOT WOMAN$ 3810 DATAWHO PLAYED MELINA IN THE FUTURISTIC+THRILLER $TOTAL RECALL$ 3820 DATAWHO PLAYS THE TITLE ROLE IN STEPHEN+KING'S $CARRIE$ 3830 DATASHE PLAYS THE HIGH SCHOOL FOOTBALL+COACH IN $WILDCATS$ 3840 DATAWHICH ACTRESS PURSUES A SORCERER IN+$WARLOCK$ 3850 DATAWHO STARRED AS A NY POLICE OFFICER+IN $BLUE STEEL$ 3860 DATAWHICH ACTRESS WAS LADY FAIRCHILD IN+$MYSTERIOUS ISLAND$ 3870 DATAWHO PLAYS KAY IN THE HORROR CLASSIC+$CREATURE FROM THE BLACK LAGOON$ 3880 DATAWHO WAS LORI IN THE SCI-FI THRILLER+$TOTAL RECALL$ 3890 DATAWHO STARS AS THE COMIC-BOOK HEROINE+IN $RED SONJA$ 3900 DATAWHO PORTRAYED REPORTER LOIS LANE IN+$SUPERMAN$ 3910 DATAWHO PORTRAYED THE JUNGLE HEROINE IN+$SHEENA$ 3920 DATAWHO PORTRAYED PRINCESS BUTTERCUP IN+$THE PRINCESS BRIDE$ 3930 DATAWHO PLAYED THE SCIENTIST'S DAUGHTER+IN $FORBIDDEN PLANET$ 3940 DATAWHICH STAR PORTRAYS A SCHIZOPHRENIC+IN $THE LOCKET$ 3950 DATASHE MARRIES A SALESMAN SUSPECTED OF+MURDER IN $BETRAYED$ 3960 DATAWHO PLAYED LUST IN THE BRITISH FILM+$BEDAZZLED$ 3970 DATAWHO PLAYS AN EXOTIC SMUGGLING QUEEN+IN $OCTOPUSSY$ 3980 DATAWHO HAD THE TITLE ROLE IN THE 1963+EPIC $CLEOPATRA$ 3990 DATAWHO STARS AS A FREE-SPIRITED MOTHER+IN $MERMAIDS$ 4000 DATAWHO WAS MARGARET IN THE ZANY COMEDY+$BEDAZZLED$ 4010 DATAWHO WAS ARNOLD'S FEMALE SIDEKICK IN+$CONAN$ 4020 DATAWHO PLAYED A NAVY FLIGHT INSTRUCTOR+IN $TOP GUN$ 4030 DATAWHICH ACTRESS WON THE OSCAR FOR HER+ROLE IN $MISERY$ 4040 DATAWHO PLAYS EXPLORER RICHARD BURTON'S+WIFE IN $MOUNTAINS ON THE MOON$ 4050 DATASHE'S BATTLING FUTURISTIC BAD GUYS+IN $CHERRY 2000$ 4060 DATAWHO IS A WOMAN SEEKING SUPERNATURAL+HELP IN $GRAVE SECRETS$ 4070 DATAWHO PLAYED A RESURRECTED HOUSE-WIFE+IN $HELLO AGAIN$ 4080 DATAWHO PLAYED A SORCERESS IN THE MOVIE+$THE WITCHES$ 4090 DATAWHICH ACTRESS PLAYED A ROLLER DERBY+STAR IN $KANSAS CITY BOMBER$ 4100 DATAWHICH ACTRESS PORTRAYED A MEDIUM IN+$BLACK RAINBOW$ 4110 DATAWHO STARRED OPPOSITE TOM HANKS IN+$JOE VERSUS THE VOLCANO$ 4120 DATAWHO WAS A WOMAN MIXED UP WITH RIVAL+ALIENS IN $PEACEMAKER$ 4130 DATAWHO PLAYS A HEIRESS WITH AMNESIA IN+$OVERBOARD$ 4140 DATAWHICH ACTRESS PLAYED A PSYCHIATRIST+IN $MR. FROST$ 4150 DATAWHAT STAR WON AN OSCAR FOR HER ROLE+IN $GASLIGHT$ 4160 DATAWHO STARRED AS A FUTURISTIC TEEN IN+$THE GIRL FROM TOMORROW$ 4170 DATAWHICH ACTRESS PLAYS A TIME-TRAVELER+IN $MILLENNIUM$ 4180 DATAWHO PLAYS A GHOST HAUNTING A WRITER+IN $THE FORGOTTEN ONE$ 4190 DATAWHO PLAYED HELEN IN HAMMER STUDIOS'+$DRACULA-PRINCE OF DARKNESS$ 4200 DATAWHO PLAYED MARIA IN HAMMER STUDIOS'+$DRACULA HAS RISEN FROM THE GRAVE$ 4210 DATAWHO PLAYED A REPLICANT NAMED RACHEL+IN $BLADERUNNER$ 4220 DATAWHO WAS SWAMPY'S ROMANTIC INTEREST+IN $THE RETURN OF SWAMP THING$ 4230 DATAWHO PLAYS JANE IN THE AWARD WINNING+(NOT!) $TARZAN THE APEMAN$ 4240 DATAWHO PLAYS A MOTHER TRAPPED WITH HER+SON IN $CUJO$ 4250 DATAWHO WAS A WOMAN WITH FELINE LINEAGE+IN $CAT PEOPLE$ 4260 DATAWHICH STAR WON A BEST ACTRESS OSCAR+IN $SUSPICION$ 4270 DATAWHO PLAYS A WIDOW WHO HIRES A HANDY+MAN IN $BEWARE MY LOVELY$ 4280 DATAWHICH ACTRESS HAD THE TITLE ROLE IN+$THE LEGEND OF BILLIE JEAN$ 4290 DATAWHO PLAYS A WOMAN BATTLING A KILLER+ROBOT IN $HARDWARE$ 4300 DATAWHICH ACTRESS MAKES A DEAL WITH THE+DEVIL IN $LIMIT UP$ 4310 DATAWHO WON BEST SUPPORTING ACTRESS FOR+$GHOST$ 4320 DATAWHO WAS A MODEL IN THE SUPERNATURAL+SHOCKER $SENTINEL$ 4330 DATAWHAT STAR PLAYED A DOMINEERING WIFE+IN $SHRIKE$ 4340 DATAWHO PLAYED TINA IN THE SUPERNATURAL+THRILLER $VOODOO DAWN$ 4350 DATAWHICH ACTRESS HAD THE TITLE ROLE IN+$THE STORY OF SNOW WHITE$ 4360 DATAWHICH STARLET HAD THE TITLE ROLE IN+DISNEY'S $SLEEPING BEAUTY$ 4370 DATAWHICH STARLET PLAYED THE TITLE ROLE+IN $ROXANNE$ 4380 DATAWHO PLAYED LORI IN THE CLIVE BARKER+MOVIE $NIGHTBREED$ 4390 DATAWHO PORTRAYS MEL GIBSON'S MOTHER IN+$HAMLET$ 4400 DATAWHO PLAYS A PSYCHIC CRIMINAL HUNTER+IN $FEAR$ 4410 DATAWHO PORTRAYED A FEMALE SCIENTIST IN+$FANTASTIC VOYAGE$ 4420 DATAWHO CO-STARRED WITH WILLIAM HURT IN+$ALTERED STATES$ 4430 DATAWHO CO-STARS WITH BEST FRIEND JAMES+WOODS IN $THE BOOST$ 4440 DATAWHO PLAYED ELSA IN THE HORROR FLICK+$FRANKENSTEIN MEETS THE WOLFMAN$ 4450 DATAWHO STARRED IN THE BRITISH CHILLER+$FIVE MILLION YEARS TO EARTH$ 4460 DATAWHO PLAYED A STONE-AGE CAVEWOMAN IN+$ONE MILLION YEARS B.C$ 4470 DATAWHO PLAYED MINA IN THE 1931 CLASSIC+$DRACULA$ 4480 DATAWHICH ACTRESS STARRED IN THE COMEDY+$ADVENTURES IN BABYSITTING$ 4490 DATAWHO PLAYS A TEACHER SEEKING REVENGE+IN $HELL HIGH$ 4500 DATAWHO STARS AS AN APPRENTICE WITCH IN+$BEDKNOBS AND BROOMSTICKS$ 4510 DATAWHO CO-STARRED WITH MARTIN SHEEN IN+$THE BELIEVERS$ 4520 DATAWHO PORTRAYED BRUCE WILLIS' WIFE IN+$DIEHARD$ 4530 DATAWHO STARRED OPPOSITE PATRICK SWAYZE+IN $DIRTY DANCING$ 4540 DATAWHO PLAYS THE FEMALE BIKER-SHE WOLF+IN $EASY WHEELS$ 4550 DATAWHICH ACTRESS PLAYED THE TITLE ROLE+IN $BARBARELLA$ 4560 DATAWHO STARRED OPPOSITE YUL BRYNNER IN+$THE KING AND I$ 4570 DATAWHO WAS JOHN VOIGHT'S REINCARNATED+LOVER IN $ETERNITY$ 4580 DATAWHO CO-STARRED WITH BRUCE WILLIS IN+$IN COUNTRY$ 4590 DATAWHO PLAYS A WOMAN WHO FAKES HER OWN+MURDER IN $KILL ME AGAIN$ 4600 DATAWHO PLAYS MAGGIE IN THE HORROR FILM+$POPCORN$ 4610 DATAWHO PLAYS A LITTLE GIRL WHO HELPS A+REINDEER IN $PRANCER$ 4620 DATAWHO STARRED IN THE 1991 BLOCKBUSTER+$SILENCE OF THE LAMBS$ 4630 DATAWHICH ACTRESS HAD THE TITLE ROLE IN+$PRIVATE BENJAMIN$ 4640 DATAWHICH STAR WAS MARISA IN THE HORROR+SPOOF $TRANSYLVANIA TWIST$ 4650 DATAWHICH ACTRESS PORTRAYED AN ALIEN IN+$AFTERSHOCK$ 4660 DATAWHO PLAYED A MOTHER SEEKING REVENGE+IN $OBSESSED$ 4670 DATAWHO PLAYS A WOMAN WHO MEETS A ROBOT+IN $SHORT CIRCUIT$ 4680 DATAWHO PLAYS A COMPUTERIZED DREAM GIRL+IN $WEIRD SCIENCE$ 4690 DATAWHICH STAR PLAYS NORA IN THE SCI-FI+ADVENTURE $ELIMINATORS$ 4700 DATAWHO STARRED AS THE HEROIC RIPLEY IN+$ALIEN$ 4710 DATAWHO CO-STARRED WITH JEFF BRIDGES IN+$STARMAN$ 4720 DATAWHO CO-STARRED WITH PETER WELLER IN+$ROBOCOP$ 4730 DATAWHO PLAYED A MERMAID IN THE DISNEY+FILM $SPLASH$ 4740 DATASHE AND HER BOYFRIEND HELP 3 ALIENS+IN $WAVELENGTH$ 4750 DATAWHO PLAYS A PRINCESS IN THE FANTASY+CLASSIC $THE THIEF OF BAGDAD$ 4760 DATAWHICH ACTRESS PLAYED SCARLET IN THE+CLASSIC $GONE WITH THE WIND$ 4770 DATAWHO CO-STARRED WITH HUMPHREY BOGART+IN $KEY LARGO$ 4780 DATAWHO STARRED AS AN EXPECTANT MOTHER+IN $THE SEVENTH SIGN$ 4790 DATAWHO CO-STARRED WITH ROBERT URICH IN+$ENDANGERED SPECIES$ 4800 DATAWHICH STAR WON A BEST ACTRESS OSCAR+IN $NORMA RAE$ 4810 DATAWHO STARRED AS A DISTURBED WOMAN IN+$STRAIGHT JACKET$ 4820 DATAWHICH ACTRESS IS HAUNTED BY VISIONS+IN $DISTORTIONS$ 4830 DATAWHO PLAYED GLINDA THE GOOD WITCH IN+$THE WIZARD OF OZ$ 4840 DATAWHO PORTRAYED THE LADY MARIANNE IN+$ROGUES OF SHERWOOD FOREST$ 4850 DATAWHO PLAYED A MYSTERIOUS HITCHHIKER+IN $ALLIGATOR EYES$ 4860 DATAWHICH STAR MARRIES THEN MURDERS MEN+IN $BLACK WIDOW$ 4870 DATAWHO PLAYS A WOMAN PLOTTING A MURDER+IN $THE LADY FROM SHANGHAI$ 4880 DATAWHO PORTRAYS WRITER MARY SHELLEY IN+$FRANKENSTEIN UNBOUND$ 4890 DATAWHO TEAMS UP WITH MICHAEL KEATON IN+$THE SQUEEZE$ 4900 DATAWHO PLAYS A FLUTIST WITH NIGHTMARES+IN $DREAM LOVER$ 4910 DATAWHO PLAYED JACKIE IN THE FUTURISTIC+THRILLER $RUNAWAY$ 4920 DATAWHICH STAR IS STABBED IN THE SHOWER+IN $PSYCHO$ 4930 DATAWHICH STAR WON A BEST ACTRESS OSCAR+IN $ANNIE HALL$ 4940 DATAWHICH STAR PLAYED LADY CATHERINE IN+$THE BANDIT OF SHERWOOD FOREST$ 4950 DATAWHICH ACTRESS STARRED IN THE DISNEY+FAVORITE $MARY POPPINS$ 4960 DATAWHICH ACTRESS PLAYS QUEEN ELIZABETH+IN $THE SEA HAWK$ 4970 DATAWHO PLAYED A MOTHER WHOSE SON WANTS+A BB-GUN IN $A CHRISTMAS STORY$ 4980 DATAWHO STARRED OPPOSITE ERROL FLYNN IN+$AGAINST ALL FLAGS$ 4990 DATAWHO CO-STARRED WITH JEFF BRIDGES IN+$AGAINST ALL ODDS$ 5000 DATAWHO PLAYED A WOMAN WITH TELEKINETIC+POWERS IN $THE FURY$ 5010 DATAWHO PLAYED A CHILD WITH TELEKINETIC+POWERS IN $FIRESTARTER$ 5020 DATAWHICH ACTRESS PLAYS SARAH CONNOR IN+$TERMINATOR$ 5030 DATAWHO STARRED IN THE GHOSTLY THRILLER+$THE LEGACY$ 5040 DATAWHO PLAYED A GUN-SLINGING MOTHER OF+TWO IN $BIG BAD MAMA$ 5050 DATAWHICH ACTRESS WAS A PRINCESS IN THE+FANTASY $CLASH OF THE TITANS$ 5060 DATAWHICH STAR PLAYS MORTICIA IN 1991'S+$THE ADDAMS FAMILY$ 5070 DATAWHO PLAYED ERICA IN THE WWIII DRAMA+$RED DAWN$ 5080 DATAWHICH ACTRESS PLAYED QUEEN MARGARET+IN $THE ADVENTURES OF DON JUAN$ 5090 DATAWHO WAS HELEN DOWNING IN THE COMEDY+$WHO'S HARRY CRUMB?$ 5100 DATAWHO PLAYED TERRA IN THE KIDDIE SCI-+FI ADVENTURE $SOLARBABIES$ 5110 DATAWHICH ACTRESS HAD THE TITLE ROLE IN+$WONDER WOMAN$ 5120 DATAWHO CO-STARRED WITH BRUCE WILLIS IN+$BLIND DATE$ 5130 DATAWHO STARRED OPPOSITE WILLIAM POWELL+IN $THE THIN MAN$ 5140 DATAWHICH ACTRESS PORTRAYS A VAMPIRE IN+$RED BLOODED AMERICAN GIRL$ 5150 DATAWHICH ACTRESS PORTRAYS CLEOPATRA IN+$SERPENT OF THE NILE$ 5160 DATAWHICH ACTRESS PLAYED A SCIENTIST IN+$SHADOWZONE$ 5170 DATAWHO PORTRAYED JANE IN THE TV. MOVIE+$TARZAN IN MANHATTAN$ 5180 DATAWHO WAS THE VOICE OF MIKEY'S SISTER+IN $LOOK WHO'S TALKING TOO$ 5190 DATAWHO PLAYS KATE IN THE HORROR/COMEDY+$GREMLINS$ 5200 DATAWHO PORTRAYED FERRIS' GIRLFRIEND IN+$FERRIS BUELLER'S DAY OFF$ 5210 DATAWHO PORTRAYED A SIGHTLESS TELEPHONE+OPERATOR IN $BLIND FEAR$ 5220 DATAWHO STARS IN THE GIANT GRASSHOPPERS+FLICK $BEGINNING OF THE END$ 5230 DATAWHO WAS NADY IN THE POSTAPOCALYPTIC+ADVENTURE $CYBORG$ 5240 DATAWHO WAS A WOMAN STALKED BY A MANIAC+IN $DEAN R. KOONTZ'S WHISPERS$ 5250 DATAWHO STARRED OPPOSITE ROBERT REDFORD+IN $OUT OF AFRICA$ 5260 DATAWHO PLAYS SARA IN THE SCI-FI COMEDY+$MARTIANS GO HOME$ 5270 DATAWHICH ACTRESS WAS A TV. HORROR HOST+IN $MIDNIGHT$ 5280 DATAWHICH STAR WON A BEST ACTRESS OSCAR+IN $DRIVING MISS DAISY$ 5290 DATAWHO PLAYED TONY DANZA'S DAUGHTER IN+$SHE'S OUT OF CONTROL$ 5300 DATAWHO PORTRAYS CATHERINE THE GREAT IN+$THE SCARLET EMPRESS$ 5310 DATAWHICH STAR WON A BEST ACTRESS OSCAR+IN $MRS. MINIVER$ 5320 DATAWHO PORTRAYED RAY MILLAND'S WIFE IN+$DIAL M FOR MURDER$ 5330 DATAWHO CO-STARRED WITH NICOLAS CAGE IN+$WILD AT HEART$ 5340 DATAWHO PLAYS A GIRL TRAPPED IN A HOUSE+IN $YOU'LL LIKE MY MOTHER$ 5350 DATAWHO CO-STARRED WITH HUMPHREY BOGART+IN $THE TWO MRS. CARROLLS$ 5360 DATAWHO PLAYED THE HEAD OF A SCHOOL FOR+YOUNG WOMEN IN $THE BEGUILED$ 5370 DATAWHO CO-STARRED WITH MARC SINGER IN+$THE BEASTMASTER$ 5380 DATAWHO PORTRAYS A RUNAWAY HOUSEWIFE IN+$THE RAIN PEOPLE$ 5390 DATAWHO PLAYS MRS. BRODY IN THE CLASSIC+THRILLER $JAWS$ 5400 DATAWHO PORTRAYS JOSETTE IN THE WARTIME+THRILLER $JOURNEY INTO FEAR$ 5410 DATAWHO CO-STARRED WITH STEWART GRANGER+IN $KING SOLOMON'S MINES$ 5420 DATAWHICH ACTRESS PLAYED JEAN IN 1935'S+$THE RAVEN$ 5430 DATAWHICH STAR PLAYED A KILLER ANDROID+IN $EVE OF DESTRUCTION$ 5440 DATAWHO CO-STARRED WITH LEONARD WHITING+IN $ROMEO AND JULIET$ 5450 DATAWHO PLAYED AN AMISH WIDOW WHOSE SON+SEES A MURDER IN $WITNESS$ 5460 DATAWHO CO-STARRED WITH RODDY PIPER IN+$HELL COMES TO FROGTOWN$ 5470 DATAWHO PLAYED ALEX FORREST IN THE FILM+$FATAL ATTRACTION$ 5480 DATAWHO STARRED IN THE STEVEN SPIELBERG+THRILLER $POLTERGEIST$ 5490 DATAWHICH STAR PLAYS BREATHLESS MAHONEY+IN $DICK TRACY$ 5500 DATAWHO CO-STARRED WITH DENNIS QUAID IN+$THE BIG EASY$ 5510 DATAWHICH ACTRESS PORTRAYED PENELOPE IN+$THE CREEPING FLESH$ 5520 DATAWHICH ACTRESS PLAYED CALAMITY JANE+IN $THE PALEFACE$ 5530 DATAWHICH ACTRESS HAD HER LAST ROLE IN+$BRAINSTORM$ 5540 DATAWHO CO-STARRED WITH PATRICK SWAYZE+IN $ROADHOUSE$ 5550 DATAWHO PORTRAYED A MALEVOLENT NURSE IN+$ONE FLEW OVER THE CUCKOOS NEST$ 5560 DATAWHICH ACTRESS PLAYED BILLY KWAN IN+$THE YEAR OF LIVING DANGEROUSLY$ 5570 DATAWHO STARRED OPPOSITE JEFF GOLDBLUM+IN $THE FLY$ 5580 DATAWHICH ACTRESS HAD THE TITLE ROLE IN+$PEGGY SUE GOT MARRIED$ 5590 DATAWHO PLAYED PAMELA IN THE GHOST FILM+$THE UNINVITED$ 5600 DATAWHO CO-STARRED WITH KIRK DOUGLAS IN+$THE BAD AND THE BEAUTIFUL$ 5610 DATAWHO PLAYED ROBIN HOOD'S DAUGHTER IN+$SON OF ROBIN HOOD$ 5620 DATAWHO PLAYED CLAIRE IN THE UNDERWATER+ADVENTURE $LORDS OF THE DEEP$ 5630 DATAWHO PLAYED WILLIE IN THE UNDERWATER+THRILLER $LEVIATHAN$ 5640 DATAWHICH ACTRESS STARRED IN THE SLIMEY+THRILLER $FROGS$ 5650 DATAWHO GIVES BIRTH TO A KILLER BABY IN+$THE DEVIL WITHIN HER$ 5660 DATAWHICH STAR PLAYS MEGAN IN THE MOVIE+$CRITTERS 2@ THE MAIN COURSE$ 5670 DATAWHO PLAYED LORA IN THE SCI-FI MOVIE+$ALIEN WARRIOR$ 5680 DATAWHICH ACTRESS WAS A LADY VAMPIRE IN+$LAIR OF THE WHITE WORM$ 5690 DATAWHICH ACTRESS PORTRAYS LT. SAVIK IN+$STAR TREK II@ THE WRATH OF KHAN$ 5700 DATAWHICH STARLET HAD THE TITLE ROLE IN+$PHOENIX THE WARRIOR$ 5710 DATAWHICH ACTRESS PLAYED CHRISSY IN THE+FILM $CLASS OF NUKE 'EM HIGH$ 5720 REM --- ANSWERS --- 5730 DATAKIM BASINGER,LEE MERIWETHER 5740 DATAJULIA ROBERTS,ASHLEY LAURENCE 5750 DATASUSANNAH YORK,LYSETTE ANTHONY 5760 DATAMARGARET LENZEY,CARRIE HENN 5770 DATAALLISON HAYES,RACHEL TICOTIN 5780 DATASISSEY SPACEK,GOLDIE HAWN 5790 DATALORI SINGER,JAMIE LEE CURTIS 5800 DATAJOAN GREENWOOD,JULIA ADAMS 5810 DATASHARON STONE,BRIGITTE NIELSEN 5820 DATAMARGOT KIDDER,TANYA ROBERTS 5830 DATAROBIN WRIGHT,ANNE FRANCIS 5840 DATALARAINE DAY,KIM HUNTER 5850 DATARAQUEL WELCH,MAUD ADAMS 5860 DATAELIZABETH TAYLOR,CHER 5870 DATAELEANOR BRON,SANDAHL BERGMAN 5880 DATAKELLY MCGILLIS,KATHY BATES 5890 DATAFIONA SHAW,MELANIE GRIFFITH 5900 DATARENEE SOUTENDIJK,SHELLEY LONG 5910 DATAANJELICA HUSTON,RAQUEL WELCH 5920 DATAROSANNA ARQUETTE,MEG RYAN 5930 DATAHILARY SHEPARD,GOLDIE HAWN 5940 DATAKATHY BAKER,INGRID BERGMAN 5950 DATAKATHARINE CULLEN,CHERYL LADD 5960 DATABLAIR PARKER,BARBARA SHELLEY 5970 DATAVERONICA CARLSON,SEAN YOUNG 5980 DATAHEATHER LOCKLEAR,BO DEREK 5990 DATADEE WALLACE,NASTASSIA KINSKI 6000 DATAJOAN FONTAINE,IDA LUPINO 6010 DATAHELEN SLATER,STACEY TRAVIS 6020 DATANANCY ALLEN,WHOOPI GOLDBERG 6030 DATACRISTINA RAINES,JUNE ALLYSON 6040 DATAGINA GERSHON,SARAH PATTERSON 6050 DATATAHNEE WELCH,DARYL HANNAH 6060 DATAANNE BOBBY,GLENN CLOSE 6070 DATAALLY SHEEDY,RAQUEL WELCH 6080 DATABLAIR BROWN,SEAN YOUNG 6090 DATALLONA MASSEY,BARBARA SHELLEY 6100 DATARAQUEL WELCH,HELEN CHANDLER 6110 DATAELISABETH SHUE,MAUREEN MOONEY 6120 DATAANGELA LANSBURY,HELEN SHAVER 6130 DATABONNIE BEDELIA,JENIFER GREY 6140 DATAEILEEN DAVIDSON,JANE FONDA 6150 DATADEBORAH KERR,EILEEN DAVIDSON 6160 DATAEMILY LLOYD,JOANNE W. KILMER 6170 DATAJILL SCHOELEN,REBECCA HARRELL 6180 DATAJODIE FOSTER,GOLDIE HAWN 6190 DATATERI COPLEY,ELIZABETH KAITAN 6200 DATAKERRIE KEANE,ALLY SHEEDY 6210 DATAKELLY LEBROCK,DENISE CROSBY 6220 DATASIGOURNEY WEAVER,KAREN ALLEN 6230 DATANANCY ALLEN,DARYL HANNAH 6240 DATACHERIE CURRIE,JUNE DUPREZ 6250 DATAVIVIEN LEIGH,LAUREN BACALL 6260 DATADEMI MOORE,JOBETH WILLIAMS 6270 DATASALLY FIELD,JOAN CRAWFORD 6280 DATAOLIVIA HUSSEY,BILLIE BURKE 6290 DATADIANA LYNN,ANNABELLE LARSEN 6300 DATATHERESA RUSSELL,RITA HAYWORTH 6310 DATABRIDGET FONDA,RAE DAWN CHONG 6320 DATAKRISTY MCNICHOL,KIRSTIE ALLEY 6330 DATAJANET LEIGH,DIANE KEATON 6340 DATAANITA LOUISE,JULIE ANDREWS 6350 DATAFLORA ROBSON,MELINDA DILLON 6360 DATAMAUREEN O'HARA,RACHEL WARD 6370 DATAAMY IRVING,DREW BARRYMORE 6380 DATALINDA HAMILTON,KATHARINE ROSS 6390 DATAANGIE DICKENSON,JUDI BOWKER 6400 DATAANJELICA HUSTON,LEA THOMPSON 6410 DATAVIVECA LINDFORS,ANNIE POTTS 6420 DATAJAMIE GERTZ,CATHY LEE CROSBY 6430 DATAKIM BASINGER,MYRNA LOY 6440 DATAHEATHER THOMAS,RHONDA FLEMING 6450 DATALOUISE FLETCHER,KIM CROSBY 6460 DATAROSEANNE BARR,PHOEBE CATES 6470 DATAMIA SARA,SHELLEY HACK 6480 DATAPEGGIE CASTLE,DEBORAH RICHTER 6490 DATAVICTORIA TENNANT,MERYL STREEP 6500 DATAMARGARET COLIN,LYNN REDGRAVE 6510 DATAJESSICA TANDY,AMI DOLENZ 6520 DATAMARLENE DIETRICH,GREER GARSON 6530 DATAGRACE KELLY,LAURA DERN 6540 DATAPATTY DUKE,BARBARA STANWYCK 6550 DATAGERALDINE PAGE,TANYA ROBERTS 6560 DATASHIRLEY KNIGHT,LORRAINE GARY 6570 DATADOLORES DEL RIO,DEBORAH KERR 6580 DATAIRENE WARE,RENEE SOUTENDIJK 6590 DATAOLIVIA HUSSEY,KELLY MCGILLIS 6600 DATASANDAHL BERGMAN,GLENN CLOSE 6610 DATAJOBETH WILLIAMS,MADONNA 6620 DATAELLEN BARKIN,LORNA HEILBRON 6630 DATAJANE RUSSELL,NATALIE WOOD 6640 DATAKELLY LYNCH,LOUISE FLETCHER 6650 DATALINDA HUNT,GEENA DAVIS 6660 DATAKATHLEEN TURNER,RUTH HUSSEY 6670 DATALANA TURNER,JUNE LAVERICK 6680 DATAPRISCILLA BARNES,AMANDA PAYS 6690 DATAJOAN VAN ARK,JOAN COLLINS 6700 DATALIANE CURTIS,PAMELA SAUNDERS 6710 DATAAMANDA DONOHOE,KIRSTIE ALLEY 6720 DATAPEGGY SANDS,JANELLE BRADY 6730 REM --- MUSIC DATA --- 6740 DATA 4817,2,5103,2,5407,2,8583,4,5407,2,8583,4,5407,4,8583,12,9634,2 6750 DATA 10207,2,10814,2,8583,2,9634,4,10814,2,8583,2,9634,4,8583,12 6760 REM --- BONUS DATA --- 6770 DATA100,150,200,250,300,350,400,450,500,750,1000,750,500,450,400,350,300 6780 DATA250,200,150,100 6790 REM --- TITLE SCREEN --- 6800 DATA"[129] [211] [212]" 6810 DATA"[129] [211] [212] " 6820 DATA"[129] [211] [212] " 6830 DATA"[129]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[157][148]^" 6840 DATA"[129]^[149]*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^+[129];#<[157][148]#" 6850 DATA"[129]^[149]^ ^[129]/;/[157][148]<" 6860 DATA"[129]^[149]^ ^[129]/=/[157][148]>" 6870 DATA"[129]^[149]^ ^[129]=#>[157][148]#" 6880 DATA"[129]^[149]^ ^[129]^^^[157][148]^" 6890 DATA"[129]^[149]^ ^[129];#<[157][148]#" 6900 DATA"[129]^[149]^ ^[129]/;/[157][148]<" 6910 DATA"[129]^[149]^ ^[129]/=/[157][148]>" 6920 DATA"[129]^[149]^ ^[129]=#>[157][148]#" 6930 DATA"[129]^[149]^ ^[129]###[157][148]#" 6940 DATA"[129]^[149]^ ^[129]###[157][148]#" 6950 DATA"[129]^[149]^ ^[129]###[157][148]#" 6960 DATA"[129]^[149]^ ^[129]###[157][148]#" 6970 DATA"[129]^[149]^ ^[129]###[157][148]#" 6980 DATA"[129]^[149]^ ^[129]###[157][148]#" 6990 DATA"[129]^[149]^ ^[129]###[157][148]#" 7000 DATA"[129]^[149]^ ^[129]###[157][148]#" 7010 DATA"[129]^[149]^ ^[129]###[157][148]#" 7020 DATA"[129]^[149]+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^*[129]###[157][148]#" 7030 DATA"[129]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^[192]^[157][148]_" 7040 DATA" [149]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" 7050 REM --- INSTRUCTIONS --- 7060 POKE53281,.:POKE53280,6:PRINT"[147]"; 7070 A$="[154]%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%[157][148]%" 7080 FORI=.TO23:PRINTA$:NEXT:PRINTA$"" 7090 PRINT"[158] " 7100 PRINT" * * * * MISTRESS GAME PLAN * * * * " 7110 PRINT" " 7120 PRINT"[150] " 7130 PRINT" IN EACH GAME YOU WILL BE ASKED 20 " 7140 PRINT" QUESTIONS ABOUT MOVIE ACTRESSES. " 7150 PRINT" FOR EACH QUESTION THERE WILL BE A " 7160 PRINT" LIST OF 16 HOLLYWOOD STARS. USING " 7170 PRINT" EITHER A JOYSTICK IN PORT TWO OR " 7180 PRINT" THE CURSOR KEYS HIGHLIGHT WHO YOU " 7190 PRINT" THINK THE ANSWER IS THEN PRESS " 7200 PRINT" EITHER THE FIREBUTTON OR RETURN. " 7210 PRINT" THE POINT VALUE FOR EACH QUESTION " 7220 PRINT" BEGINS AT 50 AND WILL INCREASE BY " 7230 PRINT" 50 EACH TIME YOU ANSWER CORRECTLY. " 7240 PRINT" HOWEVER, IF YOU MISS A QUESTION, " 7250 PRINT" THE POINT VALUE WILL RETURN TO 50. " 7260 PRINT" " 7270 PRINT"[153] " 7280 PRINT" PRESS FIREBUTTON TO CONTINUE " 7290 PRINT" " 7300 IFPEEK(197)=64AND(PEEK(JY)AND16)THEN7300 7310 : 7320 GOSUB860:PRINT"[147]"; 7330 FORI=.TO23:PRINTA$:NEXT:PRINTA$"" 7340 PRINT"[158] " 7350 PRINT" * * * * * THE BONUS ROLL * * * * * " 7360 PRINT" " 7370 PRINT"[150] " 7380 PRINT" IN ADDITION TO REGULAR SCORING, IF " 7390 PRINT" YOU CORRECTLY ANSWER 3 QUESTIONS " 7400 PRINT" IN A ROW YOU GET A BONUS ROLL. " 7410 PRINT" IN THIS GAME THERE WILL BE A BALL " 7420 PRINT" MOVING UP AND DOWN THE LEFT HAND " 7430 PRINT" SIDE OF THE SCREEN WHICH YOU WILL " 7440 PRINT" RELEASE INTO ONE OF THE SCORING " 7450 PRINT" PODS ON THE RIGHT HAND SIDE OF THE " 7460 PRINT" SCREEN. HOWEVER, UNTIL RELEASED, " 7470 PRINT" THE BALL IS INVISIBLE SO YOUR ONLY " 7480 PRINT" WAY OF DETERMINING ITS LOCATION " 7490 PRINT" WILL BE A BEEP THAT OCCURS AS THE " 7500 PRINT" BALL HITS THE TOP OR BOTTOM WALL. " 7510 PRINT" " 7520 PRINT"[153] " 7530 PRINT" PRESS FIREBUTTON TO CONTINUE " 7540 PRINT" " 7550 IFPEEK(197)=64AND(PEEK(JY)AND16)THEN7550 7560 GOSUB860:POKE53280,.:RETURN 10000 OPEN15,8,15,"S0:STAR MISTRESSES":CLOSE15:SAVE"STAR MISTRESSES",8:END